<%
'//函数名：根据id显示网址类型
Function ShowURLCLassName(id)
	dim rec
	set rec = server.createobject("adodb.recordset")
	sql_show= "select * from Plan_URLClass where type_id="&id
	rec.open sql_show,conn,3
	if not rec.eof then
	   ShowURLCLassName=Trim(rec("type_name"))
	else
	   ShowURLCLassName="未定义"
	end if
	set rec=nothing
End Function

'//函数名：根据id显示网址日志类型
Function ShowURLLogName(id)
	dim rec
	set rec = server.createobject("adodb.recordset")
	sql_show= "select * from Plan_URLLogType where id="&id
	rec.open sql_show,conn,3
	if not rec.eof then
	   ShowURLLogName=Trim(rec("title"))
	else
	   ShowURLLogName="未定义"
	end if
	set rec=nothing
End Function

'//函数名：根据id显示优先级背景颜色名称
Function ShowFlagName(id)
	dim rec
	set rec = server.createobject("adodb.recordset")
	sql_show= "select id,title from Plan_flag where id="&id
	rec.open sql_show,conn,3
	if not rec.eof then
	   ShowFlagName=Trim(rec("title"))
	else
	   ShowFlagName="未定义"
	end if
	set rec=nothing
End Function

'//函数名：根据id显示IsTop颜色名称
Function ShowIsTopName(id)
	dim rec
	set rec = server.createobject("adodb.recordset")
	sql_show= "select id,title from Plan_IsTop where id="&id
	rec.open sql_show,conn,3
	if not rec.eof then
	   ShowIsTopName=Trim(rec("title"))
	else
	   ShowIsTopName="#ffffff"
	end if
	set rec=nothing
End Function

'//函数名：根据id显示优先级背景颜色
Function ShowFlagColor(id)
	dim rec
	set rec = server.createobject("adodb.recordset")
	sql_show= "select * from Plan_flag where id="&id
	rec.open sql_show,conn,3
	if not rec.eof then
	   ShowFlagColor=Trim(rec("BG_color"))
	else
	   ShowFlagColor="#ffffff"
	end if
	set rec=nothing
End Function

'//函数名：根据id显示IsTop背景颜色
Function ShowIsTopColor(id)
	dim rec
	set rec = server.createobject("adodb.recordset")
	sql_show= "select id,bg_color from Plan_IsTop where id="&id
	rec.open sql_show,conn,3
	if not rec.eof then
	   ShowIsTopColor=Trim(rec("BG_color"))
	else
	   ShowIsTopColor="#ffffff"
	end if
	set rec=nothing
End Function

'//函数名：根据id显示SessionUser名称
Function ShowSessionName(id)
    if trim(id)="" then
	''判断输入是否为空
	   ShowSessionName="未定义"
       exit function
	end if
	dim rec
	set rec = server.createobject("adodb.recordset")
	sql_show= "select Perid,username from Users where PerID="&trim(id)
	rec.open sql_show,conn,3
	if not rec.eof then
	   ShowSessionName=Trim(rec("username"))
	else
	   ShowSessionName="未定义"
	end if
	set rec=nothing
End Function

'//函数名：根据id显示Linker HD_User名称
Function ShowUserID(id)
    if trim(id)="" then
	''判断输入是否为空
	   ShowUserID="未定义"
       exit function
	end if
	dim rec
	set rec = server.createobject("adodb.recordset")
	sql_show= "select user_id,name from HD_User where User_id="&trim(id)
	rec.open sql_show,conn,3
	if not rec.eof then
	   ShowUserID=Trim(rec("name"))
	else
	   ShowUserID="未定义"
	end if
	set rec=nothing
End Function

'//函数名：根据id显示Log_type名称
Function ShowLOGType(id)
    if trim(id)="" then
	''判断输入是否为空
	   ShowLOGType="未定义"
       exit function
	end if
	dim rec
	set rec = server.createobject("adodb.recordset")
	sql_show= "select type_id,type_name from HD_user_log_type where type_id="&trim(id)
	rec.open sql_show,conn,3
	if not rec.eof then
	   ShowLOGType=Trim(rec("type_name"))
	else
	   ShowLOGType="未定义"
	end if
	set rec=nothing
End Function


'//函数名：根据id显示星座名称
Function ShowAstro(id)
    if int(id)=0 then
	''判断输入是否为空
	   ShowAstro="未定义"
       exit function
	end if
	dim rec
	set rec = server.createobject("adodb.recordset")
	sql_show= "select id,name from HD_Astro where id="&trim(id)
	rec.open sql_show,conn,3
	if not rec.eof then
	   ShowAstro=Trim(rec("name"))
	else
	   ShowAstro="未定义"
	end if
	set rec=nothing
End Function


'//函数名：根据id显示生肖名称
Function ShowZodiac(id)
    if trim(id)="" then
	''判断输入是否为空
	   ShowZodiac="未定义"
       exit function
	end if
	dim rec
	set rec = server.createobject("adodb.recordset")
	sql_show= "select id,name from HD_Zodiac where id="&trim(id)
	rec.open sql_show,conn,3
	if not rec.eof then
	   ShowZodiac=Trim(rec("name"))
	else
	   ShowZodiac="未定义"
	end if
	set rec=nothing
End Function


'//函数名：根据id显示Blood名称
Function ShowBlood(id)
    if trim(id)="" then
	''判断输入是否为空
	   ShowBlood="未定义"
       exit function
	end if
	dim rec
	set rec = server.createobject("adodb.recordset")
	sql_show= "select id,name from HD_Blood where id="&trim(id)
	rec.open sql_show,conn,3
	if not rec.eof then
	   ShowBlood=Trim(rec("name"))
	else
	   ShowBlood="未定义"
	end if
	set rec=nothing
End Function

'//函数名：根据id显示Linkerlevel名称
Function ShowLinkerlevel(id)
    if trim(id)="" then
	''判断输入是否为空
	   ShowLinkerlevel="未定义"
       exit function
	end if
	dim rec
	set rec = server.createobject("adodb.recordset")
	sql_show= "select id,name from HD_Linkerlevel where id="&trim(id)
	rec.open sql_show,conn,3
	if not rec.eof then
	   ShowLinkerlevel=Trim(rec("name"))
	else
	   ShowLinkerlevel="未定义"
	end if
	set rec=nothing
End Function

'//函数名：根据id显示ABC名称
Function ShowABC(id)
    if trim(id)="" then
	''判断输入是否为空
	   ShowABC="未定义"
       exit function
	end if
	dim rec
	set rec = server.createobject("adodb.recordset")
	sql_show= "select id,name from HD_ABC where id="&trim(id)
	rec.open sql_show,conn,3
	if not rec.eof then
	   ShowABC=Trim(rec("name"))
	else
	   ShowABC="未定义"
	end if
	set rec=nothing
End Function

'//函数名：根据id显示Client_ConfigType名称
Function ShowClientConfigTopic(id)
    if trim(id)="" then
	''判断输入是否为空
	   ShowClientConfigTopic="未定义"
       exit function
	end if
	dim rec
	set rec = server.createobject("adodb.recordset")
	sql_show= "select type_id,type_name from Plan_ClientConfig where Type_id="&trim(id)
	rec.open sql_show,conn,3
	if not rec.eof then
	   ShowClientConfigTopic=Trim(rec("type_name"))
	else
	   ShowClientConfigTopic="未定义"
	end if
	set rec=nothing
End Function

'//函数名：根据id显示Client_ConfigType名称
Function ShowClientName(id)
    if trim(id)="" then
	''判断输入是否为空
	   ShowClientName="未定义"
       exit function
	end if
	dim rec
	set rec = server.createobject("adodb.recordset")
	sql_show= "select clientid,clientname from Plan_Client where clientid="&trim(id)
	rec.open sql_show,conn,3
	if not rec.eof then
	   ShowClientName=Trim(rec("clientname"))
	else
	   ShowClientName="未定义"
	end if
	set rec=nothing
End Function

'//函数名：根据id显示StockCodeName名称
Function ShowStockName(id)
    if trim(id)="" then
	''判断输入是否为空
	   ShowStockName="未定义"
       exit function
	end if
	dim rec
	set rec = server.createobject("adodb.recordset")
	sql_show= "select clientid,stockname,stockcode from Plan_Client where stockcode is not null and clientid="&trim(id)
	rec.open sql_show,conn,3
	if not rec.eof then
	   ShowStockName=Trim(rec("stockCode"))&"."&Trim(rec("stockname"))
	else
	   ShowStockName="未定义"
	end if
	set rec=nothing
End Function

'//函数名：根据id显示性别名称
Function ShowSex(id)
	if id=1 then
	   ShowSex="男"
	End if
	if id=2 then
	   ShowSex="女"
	End If
	End Function






%>